perm filename CYCOMC.LAP[1,LMM]1 blob
sn#031697 filedate 1973-03-27 generic text, type T, neo UTF8
(COMMENT IO FUNCTIONS)
(LAP PRINRAD SUBR)
(PUSH P 1)
(CALL 1 (E PRINT))
(MOVE 1 0 P)
(CALL 1 (E NUMNODES))
(PUSH P 1)
(CALL 1 (E PRINRAD0))
(PUSH P 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *LESS))
(JUMPN 1 TAG4)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE -1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 2 0 P)
(MOVE 3 -3 P)
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E PRINRAD1))
(SUB P (C 0 0 2 2))
(MOVE 1 -1 P)
(CALL 1 (E PRINRADOFF))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP NUMNODES SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(CALL 1 (E NUMNODES))
(POP P 2)
(CALL 2 (E *TIMES))
(MOVE 2 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(MOVEM 1 -2 P)
(HLRZ@ 1 -3 P)
(JUMPN 1 TAG12)
(MOVEI 2 (QUOTE 0))
(JRST 0 TAG11)
TAG12 (HLRZ@ 1 -3 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG13)
(MOVEI 2 (QUOTE 1))
(JRST 0 TAG11)
TAG13 (HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(HLRZ@ 1 1)
(CAIN 1 (QUOTE STRUC))
(JRST 0 TAG14)
(MOVEI 2 (QUOTE 1))
(JRST 0 TAG11)
TAG14 (HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 1 (E NODES))
(CALL 1 (E LENGTH))
(MOVE 2 1)
TAG15
TAG11 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(JCALL 2 (E *PLUS))
NIL
(LAP PRINRAD1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(HLRZ@ 1 3)
(PUSH P 1)
(HRRZ@ 1 3)
(CALL 1 (E CLEXPAND))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -4 P)
(JUMPN 1 TAG25)
(HLRZ@ 1 -6 P)
(PUSH P 1)
(HRRZ@ 1 -7 P)
(HLRZ@ 1 1)
(HLRZ@ 3 -4 P)
(HRRZ@ 2 -7 P)
(PUSH P 1)
(HLRZ@ 1 -10 P)
(CALL 3 (E PRINRAD1))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(HRRZ@ 3 -5 P)
(HLRZ@ 3 3)
(MOVE 2 1)
(POP P 1)
(CALL 3 (E PRINRAD1))
(SUB P (C 0 0 1 1))
(JRST 0 TAG24)
TAG25 (CALL 1 (E ATOM))
(JUMPN 1 TAG27)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(HLRZ@ 1 1)
(CAIN 1 (QUOTE STRUC))
(JRST 0 TAG26)
TAG27 (HRRZ@ 1 -6 P)
(MOVEM 1 -1 P)
(PUSH P -3 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -3 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 -4 P)
(CALL 2 (E CONS))
(MOVE 3 -1 P)
(MOVE 2 -4 P)
(MOVEM 1 -3 P)
(HLRZ@ 1 -11 P)
(CALL 3 (E PRINRAD1))
(MOVEM 1 -4 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(HLRZ@ 1 -11 P)
(MOVEM 1 -2 P)
(MOVE 3 -12 P)
(JUMPE 3 TAG35)
(MOVE 2 -3 P)
(MOVE 1 3)
(CALL 2 (E CONS))
(EXCH 3 1)
(JRST 0 TAG34)
TAG35 (MOVE 3 -3 P)
TAG36
TAG34 (MOVE 2 -7 P)
(MOVE 1 -2 P)
(CALL 3 (E PRINENTRY))
(MOVE 1 -4 P)
(SUB P (C 0 0 3 3))
(JRST 0 TAG24)
TAG26 (MOVE 1 -7 P)
(JUMPN 1 TAG43)
(MOVE 1 -6 P)
(JRST 0 TAG42)
TAG43 (MOVE 1 -7 P)
(CALL 1 (E NCONS))
(HLRZ@ 2 -6 P)
(CALL 2 (E XCONS))
(HLRZ@ 2 -4 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEM 1 -2 P)
(HRRZ@ 1 -6 P)
TAG44
TAG42 (MOVEM 1 -1 P)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(CALL 1 (E NODES))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 1 -2 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HLRZ@ 2 -7 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG7)
(HLRZ@ 1 -4 P)
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -5 P)
(CALL 2 (E CONS))
(MOVEM 1 -5 P)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
TAG6
TAG7 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG5)
TAG10 (MOVE 1 0 P)
(HRRZ@ 1 -7 P)
(HRRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG11 (MOVE 1 -7 P)
(JUMPE 1 TAG20)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVEM 1 -2 P)
TAG12 (MOVE 1 -2 P)
(JUMPE 1 TAG16)
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -12 P)
(MOVEM 1 -3 P)
(CALL 3 (E LMASSOC))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG60 0))
(PUSH P 1)
(HLRZ@ 1 -13 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG60 (HLRZ@ 3 -13 P)
(MOVE 2 -11 P)
(HLRZ@ 1 -1 P)
(CALL 3 (E PRINRAD1))
(MOVEM 1 -11 P)
(HRRZ@ 1 -13 P)
(MOVEM 1 -13 P)
TAG13
TAG14
TAG15 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG12)
TAG16
TAG17 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG11)
TAG20 (MOVE 1 0 P)
(HRRZ@ 1 -14 P)
(HLRZ@ 1 1)
(HRRZ@ 1 1)
(MOVE 2 -12 P)
(HLRZ@ 1 1)
(CALL 2 (E PRINCTAB))
(MOVE 1 -11 P)
(SUB P (C 0 0 10 10))
TAG40
TAG24 (SUB P (C 0 0 10 10))
(POPJ P)
NIL
(LAP PRINCTAB SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(HRRZ@ 1 1)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -4 P)
(HLRZ@ 1 1)
(CALL 3 (E LMASSOC))
(MOVEM 1 -1 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(HRRZ@ 2 -5 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 -2 P)
(JUMPN 2 TAG22)
(JRST 0 TAG5)
TAG22 (HLRZ@ 2 -2 P)
(MOVEM 2 -1 P)
(CAIE 2 (QUOTE FV))
(JRST 0 TAG24)
(JRST 0 TAG4)
TAG24 (MOVEI 3 (QUOTE NIL))
(MOVE 2 -12 P)
(MOVE 1 -1 P)
(CALL 3 (E LMASSOC))
(MOVE 2 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG2)
TAG5 (MOVE 2 0 P)
(MOVE 1 -5 P)
(CALL 2 (E *APPEND))
(MOVE 3 1)
(MOVE 2 -4 P)
(EXCH 1 -3 P)
(CALL 3 (E PRINENTRY))
(SUB P (C 0 0 6 6))
TAG6
TAG7
TAG10 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP PRINRAD0 SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL XLATN))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE 5))
(CALL 2 (E PRINNUM))
(CALL 0 (E TERPRI))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP PRINENTRY SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(EXCH 2 1)
(MOVEI 1 (QUOTE 3))
(CALL 2 (E PRINNUM))
(MOVE 1 -1 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG11)
(MOVE 1 -1 P)
(CALL 1 (E PRIN1))
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE X))
(CALL 1 (E PRIN1))
(MOVE 1 (SPECIAL XLATN))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL XLATN))
(CALL 1 (E PRIN1))
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL XLATN))
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL XLATETABLE))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL XLATETABLE))
TAG12
TAG10 (PUSH P 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 3))
(CALL 2 (E PRINNUM))
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(CALL 0 (E TERPRI))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP PRINNUM SUBR)
(MOVE 1 2)
(JCALL 1 (E PRIN1))
NIL
(LAP WIDTH SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE ((122221 6) (12221 5) (1221 4) (121 3) (11 2) (0 1))) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E CADR))
(MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(HLRZ@ 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP PRINRADOFF SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE STRUCTURE=))
(CALL 1 (E PRIN1))
(MOVE 1 0 P)
(CALL 1 (E PRINT))
(PUSH P (SPECIAL XLATETABLE))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE X))
(CALL 1 (E PRIN1))
(HLRZ@ 1 -1 P)
(CALL 1 (E PRIN1))
(MOVEI 1 (QUOTE =))
(CALL 1 (E PRIN1))
(HRRZ@ 1 -1 P)
(CALL 1 (E PRINT))
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVEI 1 (QUOTE END*))
(CALL 1 (E PRINT))
(CLEARM 1 (SPECIAL XLATETABLE))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(POPJ P)
NIL